home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 167 / 167.d81 / u.maze tag (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  693b  |  25 lines
  1. 10 poke53280,0:poke53281,0:printchr$(14)
  2. 20 print"[147]    [205] [193] [218] [197]   [212] [193] [199]   [213] [204] [212] [210] [193] [199] [197] [205]"
  3. 25 ifpeek(25000)<>32thenprinttab(6)"[205]aze [212]ag [205][213][211][212] [194]e [201]n [205]emory!!!":stop
  4. 30 printtab(10)"[158][196]isable [211]prites? ([217]/[206])"
  5. 40 geta$:ifa$=""then40
  6. 50 ifa$="y"then80
  7. 60 ifa$="n"then100
  8. 70 goto40
  9. 80 q=25438:pokeq,169:pokeq+1,0:pokeq+2,234
  10. 90 q=25879:pokeq,169:pokeq+1,0:pokeq+2,234:goto120
  11. 100 q=25438:pokeq,173:pokeq+1,30:pokeq+2,208
  12. 110 q=25879:pokeq,173:pokeq+1,30:pokeq+2,208
  13. 120 printtab(10)"[158][213]nlimited [204]ives? ([217]/[206])"
  14. 130 geta$:ifa$=""then130
  15. 140 ifa$="y"thenpoke30961,234:goto170
  16. 150 ifa$="n"thenpoke30961,136:goto170
  17. 160 goto130
  18. 170 printtab(8)"[158][213]nlimited [211]tun [194]ombs? ([217]/[206])"
  19. 180 geta$:ifa$=""then180
  20. 190 ifa$="y"thenpoke30998,234:goto220
  21. 200 ifa$="n"thenpoke30998,136:goto220
  22. 210 goto180
  23. 220 sys25000:end
  24. 10000 open15,8,15,"s0:u.maze tag":close15:save"u.maze tag",8:end
  25.